( %I%++%C solution.scx0 qTC]TC:TC\G(C\TCERROR1DO SolutionErrHandlesolution9ON ERROR &cOldError UCCURRENTPROCEDURE NPATHSTART NLENOFPATH COLDERRORSOLUTION H C,cCError: CEC @A form cannot simultaneously be open in design mode and running.0x C,7CError: CEC 2One of the necessary files is marked as read-only.C <Please make sure you have read and write access to the file.0xX C,Y^solution2*TCError: CCC,ZC CE1x%ON ERROR &cOldError <ULNCHOICESOLUTIONUUUUSolutionErrHandle>MAINHWND- _WHTOHWND4_WONTOP;GetFileVersionB!qAAVQs3q2 AaqQQQQAA51111 f%!F"G#H$IBMv(9"" 9p 999999109 99999999999999999999199999991񓓓9999999"" 񛓓99191񓛑9999HD1BM>(h?рIBMvv( BMvv(  0( @ U Cf~~~|xp`@| d8?? 0( @ C  D @A@B"@DB@H@1@"1C ?> ?<?8////.8E{i" WINDOWS _R7V0XEPS8 692869741...1'&  WINDOWS _R7V0XEPTF 550405607&m&a&P& COMMENT RESERVED ,VERSION = 3.00dataenvironmentdataenvironmentDataenvironment`Top = 239 Left = 31 Width = 527 Height = 164 DataSource = .NULL. Name = "Dataenvironment" cursorcursorCursor1DataenvironmentrTop = 10 Left = 20 Height = 90 Width = 90 Alias = "solutions" CursorSource = solution.dbf Name = "Cursor1" cursorcursorCursor2DataenvironmentTop = 12 Left = 227 Height = 89 Width = 90 Alias = "reftext" Order = "text" CursorSource = reftext.dbf Name = "Cursor2" cursorcursorCursor3DataenvironmentjTop = 11 Left = 124 Height = 89 Width = 90 Alias = "xref" CursorSource = xref.dbf Name = "Cursor3" cursorcursorCursor4DataenvironmentTop = 14 Left = 333 Height = 90 Width = 95 Alias = "customer" Database = ..\data\testdata.dbc CursorSource = "customer" Name = "Cursor4" cursorcursorCursor6DataenvironmentwTop = 9 Left = 438 Height = 90 Width = 95 Alias = "country" CursorSource = ..\data\country.dbf Name = "Cursor6" 62formform SolutionsDataSession = 2 Top = -1 Left = 1 Height = 298 Width = 529 DoCreate = .T. ShowTips = .T. BorderStyle = 2 Caption = "Visual FoxPro Solutions" MaxButton = .F. Name = "Solutions" PROCEDURE filltree o = THIS.pgf1.pagTree.oleTree o.ImageList = THIS.pgf1.pagTree.oleImages SCAN FOR (ALLTRIM(type)="N" OR ALLTRIM(type)="F" OR ALLTRIM(type)="R" OR ALLTRIM(type)="Q" OR ALLTRIM(type)="V") IF ALLTRIM(parent) = '0' oNode = o.nodes.add(,1,ALLTRIM(key),ALLTRIM(text),,) ELSE oNode = o.nodes.add(ALLTRIM(parent),4,ALLTRIM(key), ALLTRIM(text),,) ENDIF * add images to the treeview IF !empty(image) oNode.Image = ALLTRIM(image) ENDIF ENDSCAN o.Sorted = .T. ENDPROC PROCEDURE Deactivate IF THISFORM.keepHelp = .F. THEN IF TYPE('THIS.C_SOLUTIONS1') = "O" THEN THIS.C_SOLUTIONS1.RESTOREHELP ENDIF ENDIF ENDPROC PROCEDURE Activate this.c_solutions1.saveHelp ENDPROC PROCEDURE Init IF fontmetric(1, 'MS Sans Serif', 8, '') # 13 OR ; fontmetric(4, 'MS Sans Serif', 8, '') # 2 OR ; fontmetric(6, 'MS Sans Serif', 8, '') # 5 OR ; fontmetric(7, 'MS Sans Serif', 8, '') # 11 this.setall('fontname', 'Tahoma') ELSE this.setall('fontname','MS Sans Serif') ENDIF this.setall('fontsize',8) #DEFINE NOLOADOCX_LOC "Visual FoxPro could not load ActiveX controls used by this form. Try reinstalling sample applications." * Check to see if OCX installed and loaded. IF TYPE("THIS.pgf1.pagTree.oleImages") # "O" OR ISNULL(THIS.pgf1.pagTree.oleImages) MESSAGEBOX(NOLOADOCX_LOC) RETURN .F. ENDIF IF TYPE("THIS.pgf1.pagTree.oleTree") # "O" OR ISNULL(THIS.pgf1.pagTree.oleTree) MESSAGEBOX(NOLOADOCX_LOC) RETURN .F. ENDIF THIS.filltree ENDPROC PROCEDURE Destroy CLEAR EVENTS ENDPROC 3 n<%iUTUTHISFORMPGF1 ACTIVEPAGEUT%CAllC-1TF (CNC !CCC Z HFoSOLUTION  N  TTULOTHISFORMPGF1PAGLIST CBOFILTER LISTCOUNT ADDLISTITEM LISTINDEXREFTEXTITEXTXREF_IDSOLUTIONKEYTYPEASAMPLESPARENT LSTSAMPLESREQUERY ACTIVEPAGE optTree.Click, optList.Clickb112qaBraAAAg115Y) 0,% U%-1P:oSOLUTIONNaosolution#xref Cg T UTHISVALUESOLUTIONTEXTKEYTYPETHISFORMASAMPLESXREFXREF_IDPARENT LSTSAMPLESREQUERY LISTINDEXInteractiveChange,1aAa3) %Pe_U UTHISFORMRELEASEClick,12#)rArial, 0, 9, 5, 15, 12, 32, 3, 0 MS Sans Serif, 0, 8, 5, 13, 11, 11, 2, 0 Courier New, 0, 11, 9, 17, 13, 10, 4, 0 keephelp Specifies whether to return to FoxHelp on deactive or not. *filltree fill the oletree tree view control ^asamples[1,2] shapeshapeShape2 SolutionsSTop = 12 Left = 9 Height = 211 Width = 429 SpecialEffect = 0 Name = "Shape2" labellabelLabel2 SolutionsAutoSize = .T. FontBold = .F. FontName = "MS Sans Serif" FontSize = 8 Caption = " Solution Samples " Height = 15 Left = 16 MousePointer = 7 Top = 7 Width = 89 TabIndex = 1 Name = "Label2" shapeshapeShape1 SolutionsSTop = 233 Left = 9 Height = 56 Width = 429 SpecialEffect = 0 Name = "Shape1" editboxeditboxedtDescription Solutions FontBold = .F. FontName = "MS Sans Serif" FontSize = 8 BorderStyle = 0 Height = 42 Left = 15 ReadOnly = .T. ScrollBars = 0 TabIndex = 0 TabStop = .F. Top = 240 Width = 416 ControlSource = "solutions.descript" IntegralHeight = .F. Name = "edtDescription"  c_solutions solution.vcxcustom C_solutions1 Solutions]Top = 258 Left = 476 Height = 18 Width = 25 autosetdefault = .T. Name = "C_solutions1"  behindscenes solution.vcx commandbutton Behindscenes1 Solutions=Top = 266 Left = 494 TabIndex = 6 Name = "Behindscenes1"  PROCEDURE Click HELP ENDPROC  ^%:OIU $UClick,1q1) commandbutton commandbuttoncmdRun SolutionsTop = 12 Left = 447 Height = 23 Width = 72 FontBold = .F. FontName = "MS Sans Serif" FontSize = 8 Caption = "\ Root EntryAtOleObjectDatajAccessObjSiteData&\ChangedPropsAljj(6(!C4(]  Root EntryAtOleObjectData AccessObjSiteData&\ChangedPropsr\$89368265E-85FE-11d1-8BE3-0000F8754DA1$89368265E ImageHeight I  ImageWidth I  MaskColor I UseMaskColorLͫ#$,j(6(!C4~ͫh#cmdchkoleworldapiappdbfrmidxdotmenucboedtgrdlstwwwwlt*BM*v(Ȁ̀̀Ȁlt*BM*v(lt*BM*v(lt*BM*v(lt*BM*v(pppppplt*BM*v(lt*BM*v(DDDDDDDDDDDDDDDDDDDDlt*BM*v( hhh` hhh` ` ` lt*BM*v(DDDDDOODDOODDDDDDOlt*BM*v(  lt*BM*v(DDDDDDDDDDDDDDDDDDDD lt*BM*v( lt*#$,j(6(!C4~7ͫh#cmdchkoleworldapiappdbfrmidxdotmenucboedtgrdlstpgfoptspntmrtxtfrsfrxdbftbrqprltBMv(   wwwwwlt*BM*v(lt*BM*v(lt*BM*v(p~'r~~''&rrv''''rrr'''''rr~ 'rrr~'''plt*BM*v(  EUEUEUEUEUEUEUEUEUEUEUEUEUEUEUlt*BM*v(        𻰀  lt*BM*v(  ̏lt*BM*v(  wwwwww lt*BM*v(  666pw6ww66p66p66p66w666 lt*BM*v(DDDDDO lt*BM*v(DDD@DDD@DDO lt*BM*v( lt*BM*v(lt*BM*v(.OLEObject = C:\WINDOWS\System32\mscomctl.ocx  commandbutton commandbuttonTop = 9 Left = 399 Height = 18 Width = 15 FontBold = .F. FontName = "Courier New" FontSize = 11 Caption = "-" TabIndex = 3 ToolTipText = "Collapse All" Name = "cmdCollapseAll" PROCEDURE Click o = THISFORM.pgf1.pagTree.oleTree thisform.lockscreen = .t. o.visible = .f. FOR i = 1 TO o.Nodes.Count o.Nodes(i).Expanded = .F. ENDFOR o.visible = .t. thisform.lockscreen = .f. ENDPROC  %7 UF-%CPT-T-zTaTa U NODE SOLUTIONSKEYFILETHISFORMCMDRUNENABLEDCMDSEEREFRESH4%-  UTHISFORMCMDRUNENABLEDSETFOCUSCLICK{2F1UF19612F1(HELP ID _SCREEN.ActiveForm.HelpContextIDUF1 NodeClick,DblClick LostFocusgGotFocus1rqA22A22a1  ?8)5PROCEDURE Click LOCAL lnIndex o = THISFORM.pgf1.pagTree.oleTree thisform.lockscreen = .t. o.visible = .f. FOR i = 1 TO o.Nodes.Count o.Nodes(i).Expanded = .T. ENDFOR o.visible = .t. thisform.lockscreen = .f. lnIndex=1 IF TYPE("THISFORM.pgf1.pagTree.oleTree.SelectedItem.Index")="N" lnIndex = THISFORM.pgf1.pagTree.oleTree.SelectedItem.Index THISFORM.pgf1.pagTree.oleTree.SelectedItem =; THISFORM.pgf1.pagTree.oleTree.Nodes(1) ENDIF THISFORM.pgf1.pagTree.oleTree.SelectedItem =; THISFORM.pgf1.pagTree.oleTree.Nodes(lnIndex) ENDPROC o VVK% U>T-*12F1HELP ID (VAL(solutions.key))%CFFCCPATHvTCPATHv$G)(CPATHv;CQFFC\ H Fa%C 7TYMODIFY FORM (ALLTRIM(solutions.path) + "\" + ALLTRIM(solutions.file)) METHOD &cMacro ]/&C\C  R/3C\C  Q/LC\C  VG(testdata/C FTa{2F1SET PATH TO &lcPath. U LCPATHTHISFORMVISIBLEF1 SOLUTIONSTYPEMETHODCMACROPATHFILETESTDATAClick,1q1AAQ1AQQQqA1)VPROCEDURE DblClick IF THISFORM.cmdRun.Enabled THISFORM.cmdRun.Click ENDIF ENDPROC PROCEDURE UIEnable LPARAMETERS lEnable IF lEnable AND !EMPTY(solutions.descript) THIS.Value = solutions.key ENDIF IF !lEnable o = THISFORM.pgf1.pagTree.oleTree FOR i = 1 to o.Nodes.Count IF o.Nodes(i).Key = ALLTRIM(THIS.Value) o.Nodes(i).Selected = .T. EXIT ENDIF ENDFOR ENDIF ENDPROC PROCEDURE ProgrammaticChange THIS.InteractiveChange ENDPROC PROCEDURE InteractiveChange SELECT SOLUTIONS LOCATE FOR Key = THIS.Value IF EMPTY(file) THISFORM.cmdRun.Enabled = .F. THISFORM.cmdSee.Enabled = .F. ELSE THISFORM.cmdRun.Enabled = .T. THISFORM.cmdSee.Enabled = .T. ENDIF THISFORM.Refresh ENDPROC  y%m+UY%VR*CCould not run view sample: CExBUNERRORCMETHODNLINE SOLUTIONSTYPET- H FNC\C RTa*12F1HELP ID (VAL(solutions.key)) ?C\C9Ta QTa*12F1HELP ID (VAL(solutions.key))^s,(d@Arial 'Results of Query CCf.QPR  t,%C\C.QPR<,Ta VTa*12F1HELP ID (VAL(solutions.key))Ts,(d@Arial 'Results of View CCf t,G(testdataFQC %CC  <,QFTa{2F1T-U THISFORMVISIBLE SOLUTIONSTYPEPATHFILEKEEPHELPF1 BROW_WINDTESTDATA_VIEWError,Click1QAA2QQQQQC1BAAqA1 )PROCEDURE InteractiveChange IF THIS.Value = "-1" SELECT solution.text , solution.key FROM SOLUTION ; WHERE type != "N" ORDER BY text INTO ARRAY THISFORM.aSamples ELSE SELECT solution.text, solution.key FROM solution ; WHERE solution.key = ; SOME(select xref.key from xref where xref.xref_id = VAL(THIS.Value)) ; ORDER BY text INTO ARRAY THISFORM.aSamples ENDIF THIS.Parent.lstSamples.Requery THIS.Parent.lstSamples.ListIndex = 1 ENDPROC PROCEDURE optTree.Click THISFORM.pgf1.ActivePage = 1 ENDPROC PROCEDURE optList.Click LOCAL lo lo = THISFORM.pgf1.pagList.cboFilter IF lo.ListCount = 0 #DEFINE ALL_LOC "All" lo.AddListItem(ALL_LOC, 1, 1) lo.AddListItem("-1", 1, 2) lo.ListIndex = 1 SELECT reftext FOR i = 1 TO RECCOUNT() lo.AddListItem(reftext.text, i + 1, 1) lo.AddListItem(ALLTRIM(STR(reftext.xref_id)), i + 1, 2) SKIP ENDFOR ENDIF SELECT solution.text, solution.key ; FROM SOLUTION ; WHERE type != "N" ; GROUP BY text, key ; ORDER BY text ; INTO ARRAY THISFORM.aSamples lo.Parent.lstSamples.Requery lo.ListIndex = 1 THISFORM.pgf1.ActivePage = 2 ENDPROC ButtonCount = 2 BackStyle = 0 BorderStyle = 0 Value = 1 Height = 28 Left = 11 Top = 18 Width = 381 TabIndex = 0 Name = "opg1" Option1.FontBold = .F. Option1.FontName = "MS Sans Serif" Option1.FontSize = 8 Option1.BackStyle = 0 Option1.Caption = "View samples by \75HK5SK5]5emsys{{  %%pcc